﻿Public Class ven_eng_rec2

    Private Sub btnok_ven_eng_rec2_Click(sender As Object, e As EventArgs) Handles btnok_ven_eng_rec2.Click
        yc2 = Convert.ToSingle(txtyc2_eng_rec2.Text)
        pc2 = Convert.ToSingle(txtpc2_eng_rec2.Text)
        angpresn2 = Convert.ToSingle(txtangpresn2_eng_rec2.Text)
        angpresn2 = angpresn2 * (3.141592 / 180)
        angheli2 = 0
        angheli2 = angheli2 * (3.141592 / 180)
        mod2 = Convert.ToSingle(txtmod2_eng_rec2.Text)
        z2 = Convert.ToSingle(txtz2_eng_rec2.Text)
        mt2 = (pc2 * 10 ^ 6) / nrev
        dp2 = (mod2 * z2) / Math.Cos(angheli2)
        c2x = (2 * mt2) / dp2
        c2y = c2x * Math.Tan(angheli2)
        c2z = c2x * (Math.Tan(angpresn2) / Math.Cos(angheli2))
        m2x = -dp2 * 0.5 * c2y
        m2y = dp2 * 0.5 * c2x
        m2z = 0

        Me.Close()
    End Sub

    Private Sub txtyc2_eng_rec2_TextChanged(sender As Object, e As EventArgs) Handles txtyc2_eng_rec2.TextChanged

    End Sub
End Class